/* rcabsscf.p - UPDATE CONFIRMED FLAG OF SEQ SCHEDULE DURING SHIPMENT         */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.5 $                                                               */
/*V8:ConvertMode=NoConvert                                                    */
/* REVISION: 9.1   CREATED       : 07/07/99     BY: *N003* Steve Nugent       */
/* REVISION: 9.1  MODIFIED       : 08/12/00     BY: *N0KP* Mark Brown         */
/* $Revision: 1.5 $    BY: Jean Miller    DATE: 03/22/01 ECO: *P008*          */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */
/*         THIS PROGRAM IS A BOLT-ON TO STANDARD PRODUCT MFG/PRO.           */
/* ANY CHANGES TO THIS PROGRAM MUST BE PLACED ON A SEPARATE ECO THAN        */
/* STANDARD PRODUCT CHANGES.  FAILURE TO DO THIS CAUSES THE BOLT-ON CODE TO */
/* BE COMBINED WITH STANDARD PRODUCT AND RESULTS IN PATCH DELIVERY FAILURES.*/
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */
{mfdeclre.i}


define input parameter abs_recid as recid no-undo.

define shared variable confirm_mode like mfc_logical no-undo.

for first abs_mstr where recid(abs_mstr) = abs_recid
no-lock: end.

for each abss_det where
         abss_abs_id = abs_id   and
         abss_shipfrom = abs_shipfrom
exclusive-lock:

   if confirm_mode then
      abss_confirmed = true.
   else
      abss_confirmed = false.

end. /* for each abss_det */
